Developer CD Series 1995 February: Tool Chest

home *** CD-ROM | disk | FTP | other *** search

/ Developer CD Series 1995 February: Tool Chest / Dev.CD Feb 95 / Dev.CD Feb 95.toast / Tool Chest / Interfaces / Universal Interfaces 2.0a3 / Universal AIncludes / Windows.a < prev next >

Wrap

Text File | 1994-11-11 | 8.4 KB | 496 lines | [TEXT/MPS ]

; ; File: Windows.a ; ; Copyright: © 1984-1994 by Apple Computer, Inc. ; All rights reserved. ; ; Version: Universal Interfaces 2.0a3 ETO #16, MPW prerelease. Friday, November 11, 1994. ; ; Bugs?: If you find a problem with this file, send the file and version ; information (from above) and the problem description to: ; ; Internet: apple.bugs@applelink.apple.com ; AppleLink: APPLE.BUGS ; ; IF &TYPE('__WINDOWS__') = 'UNDEFINED' THEN __WINDOWS__ SET 1 IF &TYPE('__MEMORY__') = 'UNDEFINED' THEN include 'Memory.a' ENDIF ; include 'Types.a' ; ; include 'ConditionalMacros.a' ; ; include 'MixedMode.a' ; IF &TYPE('__QUICKDRAW__') = 'UNDEFINED' THEN include 'Quickdraw.a' ENDIF ; include 'QuickdrawText.a' ; IF &TYPE('__EVENTS__') = 'UNDEFINED' THEN include 'Events.a' ENDIF ; include 'OSUtils.a' ; IF &TYPE('__CONTROLS__') = 'UNDEFINED' THEN include 'Controls.a' ENDIF ; include 'Menus.a' ; documentProc EQU 0 dBoxProc EQU 1 plainDBox EQU 2 altDBoxProc EQU 3 noGrowDocProc EQU 4 movableDBoxProc EQU 5 zoomDocProc EQU 8 zoomNoGrow EQU 12 rDocProc EQU 16 ; floating window defproc ids floatProc EQU 1985 floatGrowProc EQU 1987 floatZoomProc EQU 1989 floatZoomGrowProc EQU 1991 floatSideProc EQU 1993 floatSideGrowProc EQU 1995 floatSideZoomProc EQU 1997 floatSideZoomGrowProc EQU 1999 ; window kinds dialogKind EQU 2 userKind EQU 8 ;FindWindow Result Codes inDesk EQU 0 inMenuBar EQU 1 inSysWindow EQU 2 inContent EQU 3 inDrag EQU 4 inGrow EQU 5 inGoAway EQU 6 inZoomIn EQU 7 inZoomOut EQU 8 ;window messages wDraw EQU 0 wHit EQU 1 wCalcRgns EQU 2 wNew EQU 3 wDispose EQU 4 wGrow EQU 5 wDrawGIcon EQU 6 deskPatID EQU 16 ;Window Part Identifiers which correlate color table entries with window elements wContentColor EQU 0 wFrameColor EQU 1 wTextColor EQU 2 wHiliteColor EQU 3 wTitleBarColor EQU 4 wNoHit EQU 0 wInContent EQU 1 wInDrag EQU 2 wInGrow EQU 3 wInGoAway EQU 4 wInZoomIn EQU 5 wInZoomOut EQU 6 IF GENERATING68K THEN Macro GetGrayRgn move.L $09EE,(sp) EndM ELSE IMPORT GetGrayRgn ENDIF WinCTab RECORD 0 wCSeed ds.l 1 ;reserved wCReserved ds.w 1 ;reserved ctSize ds.w 1 ;usually 4 for windows ctTable ds.b 5 * ColorSpec sizeof EQU 48 ENDR IF GENERATING68K THEN _InitWindows: OPWORD $A912 ELSE IMPORT InitWindows ENDIF IF GENERATING68K THEN _GetWMgrPort: OPWORD $A910 ELSE IMPORT GetWMgrPort ENDIF IF GENERATING68K THEN _NewWindow: OPWORD $A913 ELSE IMPORT NewWindow ENDIF IF GENERATING68K THEN _GetNewWindow: OPWORD $A9BD ELSE IMPORT GetNewWindow ENDIF IF GENERATING68K THEN _CloseWindow: OPWORD $A92D ELSE IMPORT CloseWindow ENDIF IF GENERATING68K THEN _DisposeWindow: OPWORD $A914 ELSE IMPORT DisposeWindow ENDIF IF GENERATING68K THEN _GetWTitle: OPWORD $A919 ELSE IMPORT GetWTitle ENDIF IF GENERATING68K THEN _SelectWindow: OPWORD $A91F ELSE IMPORT SelectWindow ENDIF IF GENERATING68K THEN _HideWindow: OPWORD $A916 ELSE IMPORT HideWindow ENDIF IF GENERATING68K THEN _ShowWindow: OPWORD $A915 ELSE IMPORT ShowWindow ENDIF IF GENERATING68K THEN _ShowHide: OPWORD $A908 ELSE IMPORT ShowHide ENDIF IF GENERATING68K THEN _HiliteWindow: OPWORD $A91C ELSE IMPORT HiliteWindow ENDIF IF GENERATING68K THEN _BringToFront: OPWORD $A920 ELSE IMPORT BringToFront ENDIF IF GENERATING68K THEN _SendBehind: OPWORD $A921 ELSE IMPORT SendBehind ENDIF IF GENERATING68K THEN _FrontWindow: OPWORD $A924 ELSE IMPORT FrontWindow ENDIF IF GENERATING68K THEN _DrawGrowIcon: OPWORD $A904 ELSE IMPORT DrawGrowIcon ENDIF IF GENERATING68K THEN _MoveWindow: OPWORD $A91B ELSE IMPORT MoveWindow ENDIF IF GENERATING68K THEN _SizeWindow: OPWORD $A91D ELSE IMPORT SizeWindow ENDIF IF GENERATING68K THEN _ZoomWindow: OPWORD $A83A ELSE IMPORT ZoomWindow ENDIF IF GENERATING68K THEN _InvalRect: OPWORD $A928 ELSE IMPORT InvalRect ENDIF IF GENERATING68K THEN _InvalRgn: OPWORD $A927 ELSE IMPORT InvalRgn ENDIF IF GENERATING68K THEN _ValidRect: OPWORD $A92A ELSE IMPORT ValidRect ENDIF IF GENERATING68K THEN _ValidRgn: OPWORD $A929 ELSE IMPORT ValidRgn ENDIF IF GENERATING68K THEN _BeginUpdate: OPWORD $A922 ELSE IMPORT BeginUpdate ENDIF IF GENERATING68K THEN _EndUpdate: OPWORD $A923 ELSE IMPORT EndUpdate ENDIF IF GENERATING68K THEN _SetWRefCon: OPWORD $A918 ELSE IMPORT SetWRefCon ENDIF IF GENERATING68K THEN _GetWRefCon: OPWORD $A917 ELSE IMPORT GetWRefCon ENDIF IF GENERATING68K THEN _SetWindowPic: OPWORD $A92E ELSE IMPORT SetWindowPic ENDIF IF GENERATING68K THEN _GetWindowPic: OPWORD $A92F ELSE IMPORT GetWindowPic ENDIF IF GENERATING68K THEN _CheckUpdate: OPWORD $A911 ELSE IMPORT CheckUpdate ENDIF IF GENERATING68K THEN _ClipAbove: OPWORD $A90B ELSE IMPORT ClipAbove ENDIF IF GENERATING68K THEN _SaveOld: OPWORD $A90E ELSE IMPORT SaveOld ENDIF IF GENERATING68K THEN _DrawNew: OPWORD $A90F ELSE IMPORT DrawNew ENDIF IF GENERATING68K THEN _PaintOne: OPWORD $A90C ELSE IMPORT PaintOne ENDIF IF GENERATING68K THEN _PaintBehind: OPWORD $A90D ELSE IMPORT PaintBehind ENDIF IF GENERATING68K THEN _CalcVis: OPWORD $A909 ELSE IMPORT CalcVis ENDIF IF GENERATING68K THEN _CalcVisBehind: OPWORD $A90A ELSE IMPORT CalcVisBehind ENDIF IF GENERATING68K THEN _GrowWindow: OPWORD $A92B ELSE IMPORT GrowWindow ENDIF IF GENERATING68K THEN _FindWindow: OPWORD $A92C ELSE IMPORT FindWindow ENDIF IF GENERATING68K THEN _PinRect: OPWORD $A94E ELSE IMPORT PinRect ENDIF IF GENERATING68K THEN _DragGrayRgn: OPWORD $A905 ELSE IMPORT DragGrayRgn ENDIF IF GENERATING68K THEN _DragTheRgn: OPWORD $A926 ELSE IMPORT DragTheRgn ENDIF IF GENERATING68K THEN _TrackBox: OPWORD $A83B ELSE IMPORT TrackBox ENDIF IF GENERATING68K THEN _GetCWMgrPort: OPWORD $AA48 ELSE IMPORT GetCWMgrPort ENDIF IF GENERATING68K THEN _SetWinColor: OPWORD $AA41 ELSE IMPORT SetWinColor ENDIF IF GENERATING68K THEN _SetDeskCPat: OPWORD $AA47 ELSE IMPORT SetDeskCPat ENDIF IF GENERATING68K THEN _NewCWindow: OPWORD $AA45 ELSE IMPORT NewCWindow ENDIF IF GENERATING68K THEN _GetNewCWindow: OPWORD $AA46 ELSE IMPORT GetNewCWindow ENDIF IF GENERATING68K THEN _GetWVariant: OPWORD $A80A ELSE IMPORT GetWVariant ENDIF IF GENERATING68K THEN _SetWTitle: OPWORD $A91A ELSE IMPORT SetWTitle ENDIF IF GENERATING68K THEN _TrackGoAway: OPWORD $A91E ELSE IMPORT TrackGoAway ENDIF IF GENERATING68K THEN _DragWindow: OPWORD $A925 ELSE IMPORT DragWindow ENDIF IF ¬ STRICT_WINDOWS THEN WindowRecord RECORD 0 port ds GrafPort windowKind ds.w 1 visible ds.b 1 hilited ds.b 1 goAwayFlag ds.b 1 spareFlag ds.b 1 strucRgn ds.l 1 contRgn ds.l 1 updateRgn ds.l 1 windowDefProc ds.l 1 dataHandle ds.l 1 titleHandle ds.l 1 titleWidth ds.w 1 controlList ds.l 1 nextWindow ds.l 1 windowPic ds.l 1 refCon ds.l 1 sizeof EQU 156 ENDR CWindowRecord RECORD 0 port ds CGrafPort windowKind ds.w 1 visible ds.b 1 hilited ds.b 1 goAwayFlag ds.b 1 spareFlag ds.b 1 strucRgn ds.l 1 contRgn ds.l 1 updateRgn ds.l 1 windowDefProc ds.l 1 dataHandle ds.l 1 titleHandle ds.l 1 titleWidth ds.w 1 controlList ds.l 1 nextWindow ds.l 1 windowPic ds.l 1 refCon ds.l 1 sizeof EQU 156 ENDR WStateData RECORD 0 userState ds Rect ;user state stdState ds Rect ;standard state sizeof EQU 16 ENDR AuxWinRec RECORD 0 awNext ds.l 1 ;handle to next AuxWinRec awOwner ds.l 1 ;ptr to window awCTable ds.l 1 ;color table for this window reserved ds.l 1 ; awFlags ds.l 1 ;reserved for expansion awReserved ds.l 1 ;reserved for expansion awRefCon ds.l 1 ;user Constant sizeof EQU 28 ENDR IF GENERATING68K THEN _GetAuxWin: OPWORD $AA42 ELSE IMPORT GetAuxWin ENDIF ENDIF ENDIF ; __WINDOWS__